home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 12 C64 Telecom / T18XFR.SDA / RAMDOS.BOOT (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.6 KB  |  55 lines
  1. 20 IF P THEN 380
  2. 21 BA = PEEK(186):REM CURRENT DEVICE NUMBER
  3. 22 IF (BA<8) OR (BA>12) THEN BA=8
  4. 23 PRINT"[147]";CHR$(14);
  5. 25 GOSUB550:REM CHECK FOR MEMORY EXPANDER
  6. 26 IF A=0 THEN GOTO 460
  7. 40 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  8. 50 [153]"(null) (null)ATN(null) DISK RIGHT$NSTALLATION - V080787 (null)
  9. 51 PRINT"[221] [205]ODIFIED FOR [212][197][210][205][201][206][193][204] [207][206][197] USE.  [221]
  10. 60 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP":[153]
  11. 70 :
  12. 80 U[178]9:[139] BA[178]9 [167] U[178]8
  13. 85 [153] "RIGHT$NSTALL (null)ATN(null) DISK AS UNIT   ";U;"CMDCMDCMDCMD";
  14. 90 [133] U
  15. 100 : U[178][181](U): [139] U[179]4 [176] U[177]30 [167] 90
  16. 110 F[178]0:P[178]207: L[178]6: ML[178]25344: RE[178]780: F$[178]"RAMDOS64.BIN*"
  17. 130 [153] "(null)ATN(null) DISK INTERFACE PAGE IS  ";P
  18. 160 A$[178]"Y": [133] "RIGHT$NITIALIZE (null)ATN(null) DISK          YCMDCMDCMD";A$
  19. 170 : M[178]3: [139] [200](A$,1)[178]"Y" [167] M[178]0
  20. 180 :
  21. 190 [137]300
  22. 220 :
  23. 230 [143]  C128  C64      WHAT IT DO
  24. 240 [143] $2300 $6300 --> INSTALL    RAM DISK
  25. 250 [143]     3     3 --> RE-INSTALL RAM DISK
  26. 260 [143]     6     6 --> INSTALL    RAM DISK W/ ARG: UNIT=.A PAGE=.X
  27. 270 [143]     9     9 --> RE-INSTALL RAM DISK W/ ARG: UNIT=.A PAGE=.X
  28. 280 [143]     C     C --> DISPLAY COPYRIGHT NOTICE
  29. 290 :
  30. 300 [153] " * (null)ESTORING SYSTEM VECTORS": [158] 65418
  31. 340 [153] " * (null)OADING (null)ATN(null) DISK DRIVER"
  32. 350 : [139] F[178]0 [167] [147] F$,BA,1
  33. 370 :
  34. 380 [158] ML[170]12              :[143]  PRINT EMBEDDED COPYRIGHT NOTICE
  35. 390 [151] RE,U: [151] RE[170]1,P :[143]  LDA UNIT: LDX PAGE
  36. 400 [158] ML[170]6[170]M             :[143]  (RE)INSTALL RAMDISK, USING UNIT# & PAGE
  37. 410 :
  38. 420 [153]
  39. 430 [153] "(null)ATN(null)STR$(null)(null) RIGHT$NSTALLED.":[153]"(null)OW CREATING '#' FILE"
  40. 450 [148]"#",U
  41. 460 [153]:[153]"(null)OW LOADING (null)VAL(null)(null)RIGHT$(null)ATN(null) (null)(null)VAL MAIN PROGRAM":[153]
  42. 470 [147]"TERMINAL1.8*",BA
  43. 530 [128]
  44. 540 :
  45. 550 [143] VERIFY PRESENCE OF RAM CARD
  46. 560 :
  47. 570 R[178]57088: A[178]1
  48. 580 [129]I[178]2[164]5:[151]R[170]I,I:[130]
  49. 590 [129]I[178]2[164]5:[139][194](R[170]I)[179][177]I[167]610
  50. 600 [130]: [142]
  51. 610 A[178]0: [153] " (null)ATN(null) EXPANDER NOT PRESENT ": [142]
  52. 680 :
  53. 690 [143] F.BOWEN 08/07/87 COPYRIGHT 1987 COMMODORE BUSINESS MACHINES, INC.
  54. 691 [143] CUSTOMIZED FOR TERMINAL ONE USE BY PHIL KEMP
  55.